﻿Public Class Condicao

#Region "CONSTRUTOR(S)"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal campo As String, ByVal valor As String, ByVal operador As String, Optional ByVal tipo As String = "")

        MyBase.New()
        Me.Campo = campo
        Me.Valor = valor
        Me.Operador = operador
        Me.Tipo = tipo

    End Sub

#End Region

#Region "CONSTANTES"

    Public Const MAIOR As String = "maior"

    Public Const MENOR As String = "menor"

    Public Const MAIOR_OU_IGUAL As String = "maiorOuIgual"

    Public Const MENOR_OU_IGUAL As String = "menorOuIgual"

    Public Const DIFERENTE As String = "diferente"

    Public Const IGUAL As String = "igual"

    Public Const NULO As String = "null"

    Public Const CONTEM As String = "contem"

    Public Const NUMERO As String = "numero"

    Public Const TEXTO As String = "texto"

#End Region

#Region "ATRIBUTOS"

    Private _operador As String

    Private _campo As String

    Private _valor As String

    Private _tipo As String

#End Region


#Region "PROPRIEDADES"

    Public Overridable Property Operador() As String
        Get
            Return Me._operador
        End Get
        Set(ByVal value As String)
            Me._operador = value
        End Set
    End Property

    Public Overridable Property Valor() As String
        Get
            Return Me._valor
        End Get
        Set(ByVal value As String)
            Me._valor = value
        End Set
    End Property

    Public Overridable Property Campo() As String
        Get
            Return Me._campo
        End Get
        Set(ByVal value As String)
            Me._campo = value
        End Set
    End Property

    Public Overridable Property Tipo() As String
        Get
            Return Me._tipo
        End Get
        Set(ByVal value As String)
            Me._tipo = value
        End Set
    End Property

#End Region

End Class
